/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / demos / a-d / blitzbasic21 / examples / stevemc / quickfont.bb2

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |;=======|========|
|00000010| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000020| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000030| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000040| 3d 3d 3d 00 3b 20 44 72 | 61 77 20 73 6f 6d 65 20 |===.; Dr|aw some |
|00000050| 66 61 73 74 20 38 78 38 | 20 74 65 78 74 20 75 73 |fast 8x8| text us|
|00000060| 69 6e 67 20 74 68 65 20 | 43 50 55 20 69 6e 73 74 |ing the |CPU inst|
|00000070| 65 61 64 20 6f 66 20 74 | 68 65 20 62 6c 69 74 74 |ead of t|he blitt|
|00000080| 65 72 2e 2e 2e 2e 00 3b | 20 50 72 69 6e 74 69 6e |er.....;| Printin|
|00000090| 67 20 68 61 73 20 74 6f | 20 62 65 20 61 64 6a 75 |g has to| be adju|
|000000a0| 73 74 65 64 20 6d 61 6e | 75 61 6c 6c 79 20 66 6f |sted man|ually fo|
|000000b0| 72 20 64 69 66 66 65 72 | 65 6e 74 20 77 69 64 74 |r differ|ent widt|
|000000c0| 68 20 62 69 74 6d 61 70 | 73 00 3b 20 20 28 73 65 |h bitmap|s.;  (se|
|000000d0| 74 20 75 70 20 66 6f 72 | 20 68 69 67 68 20 72 65 |t up for| high re|
|000000e0| 73 29 00 3b 20 57 72 69 | 74 74 65 6e 20 62 79 20 |s).; Wri|tten by |
|000000f0| 53 74 65 70 68 65 6e 20 | 4d 63 4e 61 6d 61 72 61 |Stephen |McNamara|
|00000100| 20 6f 66 20 4c 65 61 64 | 69 6e 67 20 45 64 67 65 | of Lead|ing Edge|
|00000110| 20 53 6f 66 74 77 61 72 | 65 00 3b 00 3b 20 55 73 | Softwar|e.;.; Us|
|00000120| 65 73 20 74 68 65 20 46 | 4e 53 20 66 6f 6e 74 20 |es the F|NS font |
|00000130| 38 5f 48 69 67 68 2e 46 | 4e 53 20 2d 20 70 6c 65 |8_High.F|NS - ple|
|00000140| 61 73 65 20 43 44 20 69 | 6e 74 6f 20 74 68 65 20 |ase CD i|nto the |
|00000150| 64 69 72 65 63 74 6f 72 | 79 00 3b 20 20 77 68 65 |director|y.;  whe|
|00000160| 72 65 20 74 68 69 73 20 | 69 73 20 2a 62 65 66 6f |re this |is *befo|
|00000170| 72 65 2a 20 63 6f 6d 70 | 69 6c 69 6e 67 00 3b 3d |re* comp|iling.;=|
|00000180| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000190| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000001a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000001b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000001c0| 3d 00 00 80 09 2e 6c 20 | 4e 69 63 65 46 6f 6e 74 |=.....l |NiceFont|
|000001d0| 20 7b 62 69 74 2e 6c 2c | 78 2e 77 2c 79 2e 77 2c | {bit.l,|x.w,y.w,|
|000001e0| 61 64 2e 6c 7d 00 20 20 | 80 82 2e 6c 20 20 20 64 |ad.l}.  |...l   d|
|000001f0| 30 2d 64 37 2f 61 30 2d | 61 36 2c 2d 28 61 37 29 |0-d7/a0-|a6,-(a7)|
|00000200| 00 00 20 20 80 45 2e 77 | 20 20 20 20 20 23 33 2c |..  .E.w|     #3,|
|00000210| 64 31 00 20 20 80 84 2e | 77 20 20 20 20 23 38 30 |d1.  ...|w    #80|
|00000220| 2c 64 32 00 00 20 20 80 | 7e 2e 6c 20 20 20 20 64 |,d2..  .|~.l    d|
|00000230| 30 2c 61 30 00 20 20 80 | 7e 2e 6c 20 20 20 20 38 |0,a0.  .|~.l    8|
|00000240| 28 61 30 29 2c 61 30 00 | 20 20 80 7e 2e 6c 20 20 |(a0),a0.|  .~.l  |
|00000250| 20 20 64 32 2c 64 37 00 | 20 20 80 3d 2e 6c 20 20 |  d2,d7.|  .=.l  |
|00000260| 20 20 20 64 31 2c 64 37 | 00 00 20 20 80 3d 2e 6c |   d1,d7|..  .=.l|
|00000270| 20 20 20 20 20 64 37 2c | 61 30 00 00 20 20 80 7e |     d7,|a0..  .~|
|00000280| 2e 6c 20 20 20 20 64 33 | 2c 61 31 00 20 20 80 7a |.l    d3|,a1.  .z|
|00000290| 20 20 20 20 20 20 20 66 | 6f 6e 74 5f 64 61 74 28 |       f|ont_dat(|
|000002a0| 70 63 29 2c 61 32 00 00 | 6d 61 69 6e 6c 6f 6f 70 |pc),a2..|mainloop|
|000002b0| 3a 00 20 20 80 7e 2e 62 | 20 20 20 20 28 61 31 29 |:.  .~.b|    (a1)|
|000002c0| 2b 2c 64 30 00 20 20 80 | 43 2e 6c 20 20 20 20 23 |+,d0.  .|C.l    #|
|000002d0| 24 66 66 2c 64 30 00 00 | 20 20 80 a7 2e 62 20 20 |$ff,d0..|  ...b  |
|000002e0| 20 20 20 23 33 32 2c 64 | 30 00 20 20 80 4f 20 20 |   #32,d|0.  .O  |
|000002f0| 20 20 20 20 20 65 78 69 | 74 00 00 64 72 61 77 6c |     exi|t..drawl|
|00000300| 6f 6f 70 3a 00 20 20 80 | 7e 2e 6c 20 20 20 20 64 |oop:.  .|~.l    d|
|00000310| 30 2c 64 31 00 20 20 80 | 84 2e 77 20 20 20 20 23 |0,d1.  .|..w    #|
|00000320| 31 36 2c 64 31 00 00 20 | 20 80 7a 20 20 20 20 20 |16,d1.. | .z     |
|00000330| 20 20 32 35 36 28 61 32 | 29 2c 61 33 00 20 20 80 |  256(a2|),a3.  .|
|00000340| 3d 2e 6c 20 20 20 20 20 | 64 31 2c 61 33 00 00 3b |=.l     |d1,a3..;|
|00000350| 61 33 3d 61 64 64 72 65 | 73 73 20 6f 66 20 63 68 |a3=addre|ss of ch|
|00000360| 61 72 61 63 74 65 72 00 | 3b 61 30 3d 62 69 74 70 |aracter.|;a0=bitp|
|00000370| 6c 61 6e 65 20 61 64 64 | 72 65 73 73 00 3b 64 30 |lane add|ress.;d0|
|00000380| 3d 63 68 61 72 61 63 74 | 65 72 00 3b 64 31 3d 73 |=charact|er.;d1=s|
|00000390| 69 7a 65 20 6f 66 20 63 | 68 61 72 61 63 74 65 72 |ize of c|haracter|
|000003a0| 00 00 20 20 80 7e 2e 6c | 20 20 20 20 61 30 2c 61 |..  .~.l|    a0,a|
|000003b0| 34 00 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |4.      |        |
|000003c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000003d0| 20 20 3b 20 41 64 6a 75 | 73 74 20 6f 66 66 73 65 |  ; Adju|st offse|
|000003e0| 74 73 20 74 6f 20 74 68 | 65 73 65 20 66 6f 72 20 |ts to th|ese for |
|000003f0| 6c 6f 77 20 72 65 73 3a | 00 20 20 80 7e 2e 62 20 |low res:|.  .~.b |
|00000400| 20 20 20 28 61 33 29 2c | 28 61 34 29 20 20 20 20 |   (a3),|(a4)    |
|00000410| 20 20 20 20 20 20 20 3b | 20 28 61 34 29 00 20 20 |       ;| (a4).  |
|00000420| 80 7e 2e 62 20 20 20 20 | 32 28 61 33 29 2c 38 30 |.~.b    |2(a3),80|
|00000430| 28 61 34 29 20 20 20 20 | 20 20 20 20 3b 20 34 30 |(a4)    |    ; 40|
|00000440| 28 61 34 29 00 20 20 80 | 7e 2e 62 20 20 20 20 34 |(a4).  .|~.b    4|
|00000450| 28 61 33 29 2c 31 36 30 | 28 61 34 29 20 20 20 20 |(a3),160|(a4)    |
|00000460| 20 20 20 3b 20 38 30 28 | 61 34 29 00 20 20 80 7e |   ; 80(|a4).  .~|
|00000470| 2e 62 20 20 20 20 36 28 | 61 33 29 2c 32 34 30 28 |.b    6(|a3),240(|
|00000480| 61 34 29 20 20 20 20 20 | 20 20 3b 20 31 32 30 28 |a4)     |  ; 120(|
|00000490| 61 34 29 00 20 20 80 7e | 2e 62 20 20 20 20 38 28 |a4).  .~|.b    8(|
|000004a0| 61 33 29 2c 33 32 30 28 | 61 34 29 20 20 20 20 20 |a3),320(|a4)     |
|000004b0| 20 20 3b 20 31 36 30 28 | 61 34 29 00 20 20 80 7e |  ; 160(|a4).  .~|
|000004c0| 2e 62 20 20 20 20 31 30 | 28 61 33 29 2c 34 30 30 |.b    10|(a3),400|
|000004d0| 28 61 34 29 20 20 20 20 | 20 20 3b 20 32 30 30 28 |(a4)    |  ; 200(|
|000004e0| 61 34 29 00 20 20 80 7e | 2e 62 20 20 20 20 31 32 |a4).  .~|.b    12|
|000004f0| 28 61 33 29 2c 34 38 30 | 28 61 34 29 20 20 20 20 |(a3),480|(a4)    |
|00000500| 20 20 3b 20 32 34 30 28 | 61 34 29 00 20 20 80 7e |  ; 240(|a4).  .~|
|00000510| 2e 62 20 20 20 20 31 34 | 28 61 33 29 2c 35 36 30 |.b    14|(a3),560|
|00000520| 28 61 34 29 20 20 20 20 | 20 20 3b 20 32 38 30 28 |(a4)    |  ; 280(|
|00000530| 61 34 29 00 20 20 20 20 | 20 20 20 20 20 20 20 20 |a4).    |        |
|00000540| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000550| 20 20 20 20 3b 20 4f 66 | 66 73 65 74 73 20 61 72 |    ; Of|fsets ar|
|00000560| 65 20 6a 75 73 74 20 65 | 76 65 6e 2d 62 79 74 65 |e just e|ven-byte|
|00000570| 20 77 69 64 74 68 73 20 | 6f 66 20 73 63 72 65 65 | widths |of scree|
|00000580| 6e 00 20 20 80 3d 2e 6c | 20 20 20 20 20 23 31 2c |n.  .=.l|     #1,|
|00000590| 61 30 00 20 20 80 58 20 | 20 20 20 20 20 20 6d 61 |a0.  .X |      ma|
|000005a0| 69 6e 6c 6f 6f 70 00 00 | 65 78 69 74 3a 00 20 20 |inloop..|exit:.  |
|000005b0| 80 82 2e 6c 20 20 20 28 | 61 37 29 2b 2c 64 30 2d |...l   (|a7)+,d0-|
|000005c0| 64 37 2f 61 30 2d 61 36 | 00 20 20 80 11 00 00 20 |d7/a0-a6|.  .... |
|000005d0| 20 80 bf 20 22 22 00 20 | 20 80 27 00 66 6f 6e 74 | .. "". | .'.font|
|000005e0| 5f 64 61 74 3a 00 20 20 | 80 2a 20 22 38 5f 48 69 |_dat:.  |.* "8_Hi|
|000005f0| 67 68 2e 46 4e 53 22 00 | 00 80 02 20 80 08 00 00 |gh.FNS".|... ....|
|00000600| cf 01 20 30 2c 30 2c 30 | 2c 36 34 30 2c 32 35 36 |.. 0,0,0|,640,256|
|00000610| 2c 32 2c 24 38 30 30 30 | 2c 22 48 65 6c 6c 6f 22 |,2,$8000|,"Hello"|
|00000620| 2c 32 2c 31 00 00 d0 03 | 20 30 2c 30 00 80 2c 20 |,2,1....| 0,0.., |
|00000630| d0 01 20 30 00 c7 02 20 | 30 00 00 61 24 3d 22 48 |.. 0... |0..a$="H|
|00000640| 65 6c 6c 6f 20 77 6f 72 | 6c 64 22 00 61 24 3d 61 |ello wor|ld".a$=a|
|00000650| 24 2b 61 24 2b 61 24 2b | 61 24 00 00 80 16 20 6c |$+a$+a$+|a$.... l|
|00000660| 6f 6f 70 2e 6c 3d 30 20 | 80 18 20 32 35 00 20 20 |oop.l=0 |.. 25.  |
|00000670| 6c 2e 6c 3d 4e 69 63 65 | 46 6f 6e 74 20 7b 80 b8 |l.l=Nice|Font {..|
|00000680| 20 d0 01 28 30 29 2c 30 | 2c 31 32 2b 6c 6f 6f 70 | ..(0),0|,12+loop|
|00000690| 2a 38 2c 26 61 24 7d 00 | 80 17 20 6c 6f 6f 70 00 |*8,&a$}.|.. loop.|
|000006a0| 80 0a 00 80 02 00 00    |                         |....... |        |
+--------+-------------------------+-------------------------+--------+--------+